home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / cagnotte (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  762b  |  27 lines
  1. 10 PRINT"             HI LO"
  2. 20 PRINT:PRINT"J'AI CHOISI UN NOMBRE ENTRE 1 ET 1000.
  3. 25 [153]"A VOUS DE LE DECOUVRIR, POUR REMPORTER"
  4. 28 [153]"LA CAGNOTE..."
  5. 30 [153]:[153]:[153]
  6. 160 R[178]0
  7. 170 B[178]0
  8. 171 [153]
  9. 180 Y[178][181](1000[172][187](1)[170]1)
  10. 200 [153]"VOTRE CHOIX";
  11. 210 [133] A
  12. 220 B[178]B[170]1
  13. 230 [139] A[178]Y [167] 300
  14. 240 [139] A[177]Y [167] 270
  15. 250 [153]"ON<TROP BAS>":[137]280
  16. 270 [153]"ON>TROP HAUT<":[137]280
  17. 280 [153]:[139] B[179]10[167] 200
  18. 290 [153]"VOUS PERDEZ...MOI, JE RAMASSE LE MAGOT!!! LE NOMBRE ETAIT";Y
  19. 295 R[178]0:[137] 350
  20. 300 [153]"VOUS L' AVEZ TROUVE!!!VOUS GAGNEZ $";Y
  21. 310 R[178]R[170]Y
  22. 320 [153]"VOS GAINS TOTALISENT ACTUELLEMENT $";R
  23. 350 [153]:[153]"ON REMET CA(OUI OU NON)";
  24. 360 [133] A$:[139]A$[178]"O" [167] 170
  25. 380 [153]:[153]"MERCI, ET AU PLAISIR!COMMODORE 64"
  26. 390 [128]
  27.